#!/usr/bin/perl -w
$temp = $ARGV[0];
$temp =~ tr/a-uv-zA-UV-Z0-45-9/f-za-eF-ZA-E5-90-4/;
print "$temp";
